a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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FFFFFFFFFE 000000 RRRRRRRR DDDDDDDD EEEEEEEEEE cccccccc 000000 MM MM 000000 ; 
FFFFFFFFFF 000000 RRRRRRRR DDDDDDDD EEEEEEEEEE ccccccce 000000 MM MM 000000 ‘ 
FF 00 00 RR RR OD DD EE cc 00 00 MMMM MMMM OO 00 : 
FF 00 O RR RR DD DD EE cc 00 00 MMMM MMMM 00 00 : 
FF 00 0O RR RR DD DD EE a 00 00 MM MM MM OO 00 ‘ 
FF 00 00 RR RR DD DD EE cc 00 Oo MM MM MM OO 00 | : 
FFFFFFFF 00 00 RRRRRRRR DD DD EEEEEEEE cc 00 00 M MM 00 00 ; 
FFFFFFFF 00 00 RRRRRRRR DD DD EEEEEEEE cc 00 00 MM MM O00 00 : 
FF 00 00 RR RR DD DD EE cc 00 0O MM MM 00 00 : 
FF 00 OO RR RR dD DD EE cc 00 0O MM MM 00 00 : 
FF 00 00 RR RR DD DD EE CC 00 00 MM MM 00 00 eee ; 
FF 00 0O RR RR DD DD EE cc 00 00 MM MM 00 00 eoee ; 
FF 000000 RR RR DDDDDDDD EEEEEEEEEE cccccccc 000000 MM MM 000000 cece . 
FF 000000 RR RR DDDDDDDD EEEEEEEEEE ccccccce 000000 MM MM 000000 cece ; 
LL 11111 SSSSSSSS : 
LL T1111 SSSSSSSS ; 
LL II SS ‘ 
LL I] SS ; 
LL I] SS ; 
LL I] SS ‘ 
LL I] SSSSSS : 
LL I] SSSSSS : 
LL II SS ‘ 
LL I] S$ ‘ 
LL II SS ‘ 
LL I] SS : 
LLLLLLLLLL T1111] SSSSSSSS 

LLLLLLLLLL W111] SSSSSSSS 
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FORSDECODE_MO - entry point for FORTRAN DECODE OBJECT=- 15- ~$60- 138% ? 31:18 AX/VMS Macro V04-00 Page 1. 
1-011 66-SEP-1984 254: FORRTL.SRCJFORDECOMO.MAR; 1 MM), 
-TITLE FORSDECODE_MO = entry y pain for FORTRAN reer A alta heated 
-IDENT /1-011/ File: FORDECOMO.MAR Edit: 1 


—MARRBABRARBAAAAAASASALALASALAREAASEARAASASAAASA RASA AS AREA ERASERS RRA SASL ARAL ASS OD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


the $e FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
CCORDANCE WITH THE TERMS OF SUCH ih AND WITH THE 
OF THE ABOVE lsh NOTICE. THIS SOFT 


* 
® 
* 
* 
® 
* 
2 
® 
® 
0 ON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 
® 
* 
® 
*® 
& 
© 
* 


AND NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ee Se Ge Ge Ge Ge Ge e@e te 
e@e ee Ree RR Rae RRR RR RRR 


LARBRRRBRBRALASARAAASAAARRARRSRRRASARRAARRARRRRRERRARRRRRRRRRRRAR RRA RRS RAAD SB 


FACILITY: FORTRAN Support Library =- user callable 
ABSTRACT: 

This module contai 

DECODE OBJECT-FORM 

a call to FOR$$I0 

poreneter List. 


MAINTENANCE NOTE: c | 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSDECODE_MO 

. MASK 10_BE 

BRwW FORSDECODE_MO+2 

This puts the correct mask in entry weeter, shee is FORSSIO_BEG entry mask. 


Furthermore this module must only use RO an 
since any other register might not be in the entry mask for FORS$I0_BEG. 


j 
ntry point for the FORTRAN 
O statement. It is simply 

bits in RO which describe the 
EG interprets the parameters. 


zmm—-4w 
or™oe 


in 
A 
B 
0 


ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


moor Ife BY: 
. Hastings, 29-July-78 
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eee ww wlan aw ol ala eee ewe ew ew wie lol ole ele wlololololelelololololololeloleloleleolololololoia) 
SOSCCCSOSOSCOSOOSCO SOOO SSOSOOCSOSOSCOSOSOCOSCSCSOSOSOOSOOSCOCOSOOOOOOCOOOSOOOOCOOoOO 
ts Fe Ta | ee | | we eee ee ee) ee ee ee we ew lolol ol ol ol ololololololololol ole ol oleae ole aleolo lola) 
PWN OOD NAUES WN S ODNAM EWN  O OO NAUE WN 0 OONOAU EWN OOWONOUES wh 
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HISTORY - Detailed Current Edit History 5- SET 3b2 93:21:49 LPORRTL. SREIS ORDECOMO.MAR; 1 ° 3) 
: -SBTTL HISTORY ; Detailed Current Edit History 
59 ; Edit History for Version 1 
9] ; 9-1 - Add comment spout vectors. TNH 23-June-78 
¢ ; O-12 = Pass arg in RO, not ROR, add comments. TNH 29-July-7 | 
0 65 ; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
0 64; 1- 8 - Change statement type symbols to be K... JBS O7-DEC-78 
099 65 ; 1-005 - Change statement type symbols to be iSBSK..._ JBS 11-DEC-78 
000 66: 1-004 - Add to the PSECT directive. JBS 22-DEC-7 | 
0000 67 ; 1-005 - Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
0000 68; FORSREAD_IF, ~FORSREAD_ 10, FORSWRITE_IF, FORSWRITE_10, | 
0000 69 ; FORSREAD_KU, FORSREWRITE_SU, 
0000 70; SBL 2-May-1979 | 
0000 71 ; 1-006 = Remove all entry petore that need object time formatting, 
0000 72 ; putting them in FORSENTRY_OBJ so that we can arrange to 
0000 73 ; oad the format compiler only when it is needed. 
0000 74 ; JBS 26-JUN-1979 
0000 75 ; 1-007 - Remove entry point FORSENCODE MF; we will code a new module 
0000 76; for it and FORS$$IO_BEG, to see how much 1/0 initiation time 
0000 77; improves. JBS 02-JUL-1979 
0000 78 ; 1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
0000 79 ; 1-009 - Remove all entry points and add FORSREAD_50; each entry 
0000 80 ; point gets its own module do we can selectively load 
0000 81; the necessary UDF and REC modules. JBS 09-JUL-1979 
0000 82 ; 1-010 - New parameter format for FORS$$IO_BEG. SBL 5-Dec-1979 
0000 83 ; 1-011 - Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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-SBTTL DECLARATIONS 


Oooo 


OOQCCCOCCCOCCOCOCCOOCOCOOCOCOOOCOCOOOoO 


: INCLUDE FILES: 


SFORPAR ; Define inter-module FORTRAN symbols | 
SISBDEF 3; Define statement type symbols 


: EXTERNAL SYMBOLS: 


: 
8 3 

00 9 3 
§08 0 $ 
00 4 ; 
$0 38 3 
00 94 3 
00 95 3 
00 38 3 
00 9 3 
000 98 -DSABL GBL ; Declare all external symbols 3 
i 180 i -EXTRN FORS$S$IO_BEG 3 common 1/0 statement processing : 
000 101 ; The ny references are to make sure the necessary UDF and REC | F 
000 108 ; modules are loaded. These are the routines which are called through ; 
800 \2 3; the dispatch tables in FORSSDISPAT. | 3 
000 105 -EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RFO : 
Bo 196 , -EXTRN FORSSREC-RMFO, FORSSREC_RMF1, FORSSREC_RMF9 5 
it 195 ; The following reference makes sure the format compiler is loaded. | F 
oa | ° 

000 110 -EXTRN FORSSFMT_COMPIL 3 
000 111 3 
0000 112 ; 3 
0000 113 ; MACROS: 3 
0000 114 ; 5 
0000 115; NONE F 
0000 116; 3 
0000 117 ; PSECT DECLARATIONS: : 
0000 118 ; 3 
0000 119 3 
viata °° | 139 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG : 
0000 12¢ : ; 
0000 123 ; EQUATED SYMBOLS: : 
0000 124 ; 3 
0000 125 : 
0000 126 F 
0000 127 ; 3 
8308 1 3 3; OWN STORAGE: | : 
000 129; 3 
0000 130; NONE 3 
0000 131 ; 3 
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-SBTTL FORSDECODE_MO = DECODE OBJECT-FORMATTED 


ae 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 oxetes to perform 
a DECODE OBJECT=-FORMATTED 1/0 statement. 


; CALLING SEQUENCE: 


CALL FORSDECODE_MO (char_cnt.rlu.v, format_adr.rt.r, usr_buf_adr.wt.ra 
, err_adr.j.r C, end_adr.j.rJJ) | 


INPUT PARAMETERS: 


unit.rl.v Logical unit number =ccigig tin 
format_adr.rt.r format string (needs compilation) 
usr_buf_adr.wt.ra adr. of user's buffer 
00 pee ae oat optional ERR= address | 
end_adr.).rJ optional END= address 


pee eee wee lefololololelelelololololololo) 


NONE except those used by FORS$S$IO_BEG. 
OUTPUT PARAMETERS: | 

: NONE 
IMPLICIT OUTPUTS: 
NONE except those left by FORSS$IO_BEG. 
COMPLETION CODES: 

NONE | 
; SIDE EFFECTS: 

NONE except those of FORSSI0_BEG. | 
bg | 
FORSDECODE _MO:: .MASK FORS$$IO_BEG 

MOUZWL «#ISBSK_ST_TY_RMF+ - 


<1aFORSV_OBJ-FMT>, RO ; Statement type 
JMP G*FORS$1O_BEG+2 ; branch past call mask 


: IMPLICIT INPUTS: 


0000' 
50 010C 8F 3C 


00000002"GF 17 


COOCCOCoCooOoCooooooQoooo COCO OCOOCOSOOOCOOCOOCOOCOOCOOCOOOOOOOOOO 
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COOoCoCoooooooooooooooocooooo 
Oe dd dd dd 


CODD OD SIN NNN NDS DOD DOO TTT BS SS BB BE ENNIO 
MO OONAUSWIN | OOD NAME WW O OD NAMES WN 0 OONAULS WN OOONOUEW 


END 


FORSDECODE_MO 
Symbol table 


FORSSFMT COMPIL 
FORS$10 GEG 


FORSV_OBJ_FMT 
1SB$K~ST_TY_RMF 


PSECT name 


Page fa 


Initialization 
Command processing 


Pass 
Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The working set Limit was 1050 p 
6710 bytes (14 pages) of virtua 


Macro Library name 


“$255$DUA28:(SYSLIBISTARLET.MLB; 
TOTALS (all Libraries) 


183 GETS were required to define 


Reeeeeee 
RRR Re 
RRARRRERE 
ReEeeeeee 
RRARREEHe 
RRR ee 
RRR 
ReEeERRee 


00000000 RG 


00000008 
0000000C 


Allocation 
00000000 
0000000D 


PSECT No. Attributes 
0.) 00 ¢ OO.) NOPIC USR- CON 
3.8 Os 4. Bel PIC USR CON 


ults CPU Time Elapsed Time 
30 00:00:00.09 00:00:00.91 
119 00:00:00.59 00:00:03.83 
129 00:00:01.25 00:00:04.56 
0 00:00:00.18 00:00:00.18 
47 00:00:00.46 00:00:02.48 
3 b's So 23 00:00:00.02 
2 00:00:00.0 00:00:00.19 
0 00:00:00.00 00:00:00.00 
332 00:00:02.61 00:00:12.17 
ages. 


memory were used to buffer the intermediate code 
There were 20 pages of symbol table space allocated to hold 188 non-local and 0 | 
182 source Lines were read in Pass 1, produc ire 8 object records in Pass 2. 

9 pages of virtual memory were used to define 


$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 


2 macros. 


There were no errors, warnings or information messages. 


macros. 


+ 
! Macro Library statistics ! 
+ 


Macros defined 


ABS 


NOSHR NOEXE NO 
REL SHR = EXE 


LCL 
LCL 


ocal symbols. 


“oO 


v04-00 P 
ORDECOMO.MAR; 1 


RD NOWRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


5 | 


(4) 
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MACRO/ENABLE=SUPPRESS1ON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:F ORDECOMO/0BJ=OBJ$: F ORDECOMO MSRC$:FORDECOMO/UPDATE=(ENHS:FORDECOMO) +L 1. 
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ND PROPRIETARY 
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